* lisp/emacs-lisp/thunk.el (thunk-delay): Fix the macro.

diff --git a/lisp/emacs-lisp/thunk.el b/lisp/emacs-lisp/thunk.el
index d07b25736aa2203e86b6aa7226d207f527ba09d7..0c5816a616da50950214317392cb3eac9dcf85b6 100644 (file)
--- a/lisp/emacs-lisp/thunk.el
+++ b/lisp/emacs-lisp/thunk.el
@@ -57,8 +57,8 @@
              ,forced
            (unless ,forced
              (setf ,val (progn ,@body))
-             (setf ,forced t)))
-         ,val))))
+             (setf ,forced t))
+           ,val)))))
 
 (defun thunk-force (delayed)
   "Force the evaluation of DELAYED.